inherited fCadFornecedor: TfCadFornecedor
  Left = 627
  Top = 257
  Caption = 'Cadastro de Fornecedor'
  ClientHeight = 264
  ClientWidth = 522
  OldCreateOrder = True
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label2: TLabel [0]
    Left = 144
    Top = 8
    Width = 102
    Height = 13
    Caption = 'Nome / Raz'#227'o Social'
    FocusControl = dbNome
  end
  object Label4: TLabel [1]
    Left = 8
    Top = 48
    Width = 37
    Height = 13
    Caption = 'RG / IE'
    FocusControl = DBEdit4
  end
  object Label5: TLabel [2]
    Left = 8
    Top = 128
    Width = 46
    Height = 13
    Caption = 'Endere'#231'o'
    FocusControl = DBEdit5
  end
  object Label6: TLabel [3]
    Left = 416
    Top = 128
    Width = 37
    Height = 13
    Caption = 'N'#250'mero'
    FocusControl = DBEdit6
  end
  object Label7: TLabel [4]
    Left = 8
    Top = 168
    Width = 27
    Height = 13
    Caption = 'Bairro'
    FocusControl = DBEdit7
  end
  object Label8: TLabel [5]
    Left = 8
    Top = 88
    Width = 21
    Height = 13
    Caption = 'CEP'
    FocusControl = dbCep
  end
  object Label10: TLabel [6]
    Left = 144
    Top = 48
    Width = 42
    Height = 13
    Caption = 'Telefone'
    FocusControl = DBEdit10
  end
  object Label12: TLabel [7]
    Left = 450
    Top = 10
    Width = 42
    Height = 13
    Caption = 'Situa'#231#227'o'
  end
  object Label1: TLabel [8]
    Left = 8
    Top = 8
    Width = 58
    Height = 13
    Caption = 'CPF / CNPJ'
  end
  object Label3: TLabel [9]
    Left = 272
    Top = 168
    Width = 64
    Height = 13
    Caption = 'Complemento'
    FocusControl = DBEdit1
  end
  object SpeedButton3: TSpeedButton [10]
    Left = 1
    Top = 229
    Width = 104
    Height = 25
    Caption = 'Cadastrar Cidade'
    Flat = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    OnClick = SpeedButton3Click
  end
  object Label9: TLabel [11]
    Left = 168
    Top = 88
    Width = 33
    Height = 13
    Caption = 'Cidade'
  end
  object Label13: TLabel [12]
    Left = 444
    Top = 88
    Width = 14
    Height = 13
    Caption = 'UF'
  end
  object SpeedButton1: TSpeedButton [13]
    Left = 487
    Top = 101
    Width = 23
    Height = 25
    Flat = True
    Glyph.Data = {
      2E060000424D2E06000000000000360400002800000015000000150000000100
      080000000000F8010000120B0000120B0000000100005D00000000000000DFDF
      E800E9E90C008D8D8D0092924E00FFFF720070702A00BEBDBD00CECE14003737
      270062626900F4F41E001D1D1D00A8A81B00F6F6FB00FFFFE20099999900FFFF
      B9005A5A5200D9D929009C9C6200FFFFEE007C7B6900C5C5D40042423900FFFF
      0000FFFFAA00A5A59E00A9A93800D7D7130095959200FFFF3B00807F39000908
      0800F2F2F200D8D8D800FFFF990077775D00E1E14700949480004F4F4F00B4B4
      A400CCCCCC00BBBB22008B8A6900757575002A2A37009D9D4300F9F90900FFFF
      FF003D3B3B00FFFF8F009090AB00FFFF1C00F8F8F8008585490085859800CFCF
      D9000E0E0E00E4E4E400E0E0E000ABAB1E0033333300FFFF830064647E002929
      2700FFFFC6007A7A7A00D2D22200FFFF2D00C2C2C200A5A53F00AFAFAF00ECEC
      06009B9BA600DDDD2D00C8C81D00FCFC060000000500CECEDE0095955400FFFF
      2300A4A3A300F0F0F500E2E2EB0076763300D1D1150024232800A6A52300FFFF
      BD005D5C5C00D6D6E000F4F41000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000313131313131
      3131313131313131313131313131310000003131313131313131313131313131
      3131313131313100000031313131313131313131313131313131313123033100
      00003131313131313131313131313131313131073E2152000000313131313131
      3131313131313131313643210032520000003131313131313131313131313131
      2A3200002D223100000031313131310E530E3131313131103A000C4831313100
      00003131314627502F141B54313B5A0000283C31313131000000313103504B19
      194D08043841002103313131313131000000314A4759511919191930064E3E2A
      31313131313131000000012033051919191919195C1222313131313131313100
      0000402B4245191919191919192F0E313131313131313100000057130F351919
      19191919193D3931313131313131310000002E44153F19191919191919585B31
      31313131313131000000340D243135191919191919370E313131313131313100
      000036250B1A1F19191919194C4A31313131313131313100000031395549111F
      1919195616363131313131313131310000003131172C2926021D1C1E53313131
      313131313131310000003131310E1B18090A3931313131313131313131313100
      0000313131313131313131313131313131313131313131000000313131313131
      313131313131313131313131313131000000}
    OnClick = SpeedButton1Click
  end
  object Label11: TLabel [14]
    Left = 280
    Top = 48
    Width = 32
    Height = 13
    Caption = 'Celular'
    FocusControl = DBEdit2
  end
  object SpeedButton2: TSpeedButton [15]
    Left = 129
    Top = 104
    Width = 29
    Height = 21
    Caption = 'CEP'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    OnClick = SpeedButton2Click
  end
  inherited GroupBox1: TGroupBox
    Left = -3
    Top = 216
    Width = 529
    TabOrder = 15
  end
  inherited BitBtn1: TBitBtn
    Left = 352
    Top = 232
    ModalResult = 0
    TabOrder = 13
    OnClick = BitBtn1Click
  end
  inherited BitBtn2: TBitBtn
    Left = 440
    Top = 232
    ModalResult = 0
    TabOrder = 14
    OnClick = BitBtn2Click
    Kind = bkCustom
  end
  object dbNome: TDBEdit
    Left = 144
    Top = 24
    Width = 296
    Height = 21
    CharCase = ecUpperCase
    DataField = 'NOME'
    DataSource = DataSource1
    TabOrder = 1
  end
  object DBEdit4: TDBEdit
    Left = 8
    Top = 64
    Width = 129
    Height = 21
    DataField = 'RG_IE'
    DataSource = DataSource1
    TabOrder = 2
  end
  object DBEdit5: TDBEdit
    Left = 8
    Top = 144
    Width = 401
    Height = 21
    CharCase = ecUpperCase
    DataField = 'ENDERECO'
    DataSource = DataSource1
    TabOrder = 9
  end
  object DBEdit6: TDBEdit
    Left = 416
    Top = 144
    Width = 97
    Height = 21
    CharCase = ecUpperCase
    DataField = 'NUMERO'
    DataSource = DataSource1
    TabOrder = 10
  end
  object DBEdit7: TDBEdit
    Left = 8
    Top = 184
    Width = 257
    Height = 21
    CharCase = ecUpperCase
    DataField = 'BAIRRO'
    DataSource = DataSource1
    TabOrder = 11
  end
  object dbCep: TDBEdit
    Left = 8
    Top = 104
    Width = 123
    Height = 21
    DataField = 'CEP'
    DataSource = DataSource1
    TabOrder = 5
  end
  object DBEdit10: TDBEdit
    Left = 144
    Top = 64
    Width = 129
    Height = 21
    DataField = 'TELEFONE'
    DataSource = DataSource1
    TabOrder = 3
  end
  object edCpfCnpj: TMaskEdit
    Left = 8
    Top = 24
    Width = 129
    Height = 21
    TabOrder = 0
    OnEnter = edCpfCnpjEnter
    OnExit = edCpfCnpjExit
    OnKeyPress = edCpfCnpjKeyPress
  end
  object DBEdit1: TDBEdit
    Left = 272
    Top = 184
    Width = 241
    Height = 21
    CharCase = ecUpperCase
    DataField = 'COMPLEMENTO'
    DataSource = DataSource1
    TabOrder = 12
  end
  object checkSituacao: TDBCheckBox
    Left = 451
    Top = 26
    Width = 57
    Height = 17
    Caption = 'Ativo'
    DataField = 'SITUACAO'
    DataSource = DataSource1
    TabOrder = 16
    ValueChecked = 'A'
    ValueUnchecked = 'I'
  end
  object dbCidade: TDBEdit
    Left = 168
    Top = 104
    Width = 49
    Height = 21
    DataField = 'CIDADE_FK'
    DataSource = DataSource1
    TabOrder = 6
    OnExit = dbCidadeExit
    OnKeyDown = dbCidadeKeyDown
  end
  object Edit1: TEdit
    Left = 219
    Top = 104
    Width = 222
    Height = 21
    Enabled = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 7
  end
  object Edit2: TEdit
    Left = 444
    Top = 104
    Width = 41
    Height = 21
    Enabled = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 8
  end
  object DBEdit2: TDBEdit
    Left = 280
    Top = 64
    Width = 129
    Height = 21
    DataField = 'CELULAR'
    DataSource = DataSource1
    TabOrder = 4
  end
  object checkCliente: TCheckBox
    Left = 416
    Top = 51
    Width = 97
    Height = 17
    Caption = #201' Cliente'
    TabOrder = 17
  end
  object checkVendedor: TCheckBox
    Left = 416
    Top = 67
    Width = 97
    Height = 17
    Caption = #201' Vendedor'
    TabOrder = 18
    OnClick = checkVendedorClick
  end
  object DataSource1: TDataSource
    DataSet = dm.qryPessoa
    Left = 160
    Top = 224
  end
  object DataSource2: TDataSource
    DataSet = dm.qryCidade
    Left = 120
    Top = 224
  end
  object GeraCodigo: TIBOQuery
    Params = <>
    DatabaseName = 'C:\Delphi7\Integrado\Dados\BANCO.GDB'
    IB_Connection = dm.base
    RecordCountAccurate = True
    SQL.Strings = (
      'select GEN_ID(GEN_PESSOA_ID,1) PK FROM RDB$DATABASE')
    FieldOptions = []
    Left = 216
    Top = 224
    object GeraCodigoPK: TLargeintField
      FieldName = 'PK'
      ReadOnly = True
      Required = True
    end
  end
  object IdHTTP1: TIdHTTP
    MaxLineAction = maException
    ReadTimeout = 0
    AllowCookies = True
    ProxyParams.BasicAuthentication = False
    ProxyParams.ProxyPort = 0
    Request.ContentLength = -1
    Request.ContentRangeEnd = 0
    Request.ContentRangeStart = 0
    Request.ContentType = 'text/html'
    Request.Accept = 'text/html, */*'
    Request.BasicAuthentication = False
    Request.UserAgent = 'Mozilla/3.0 (compatible; Indy Library)'
    HTTPOptions = [hoForceEncodeParams]
    Left = 280
    Top = 216
  end
  object XMLDocument: TXMLDocument
    Left = 312
    Top = 216
    DOMVendorDesc = 'MSXML'
  end
  object geraCodigoCidade: TIBOQuery
    Params = <>
    DatabaseName = 'C:\Delphi7\Integrado\Dados\BANCO.GDB'
    IB_Connection = dm.base
    RecordCountAccurate = True
    SQL.Strings = (
      'select GEN_ID(GEN_CIDADE_ID,1) PK FROM RDB$DATABASE')
    FieldOptions = []
    Left = 187
    Top = 68
    object geraCodigoCidadePK: TLargeintField
      FieldName = 'PK'
      ReadOnly = True
      Required = True
    end
  end
end
